home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / lsp / evalmacros.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  22.4 KB  |  969 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "evalmacros.h"
  4. init_evalmacros(){do_init(VV);}
  5. /*    macro definition for DEFVAR    */
  6.  
  7. static L1()
  8. {register object *base=vs_base;
  9.     register object *sup=base+VM1; VC1
  10.     vs_reserve(VM1);
  11.     check_arg(2);
  12.     vs_top=sup;
  13.     {object V1=base[0]->c.c_cdr;
  14.     if(endp(V1))invalid_macro_call();
  15.     base[2]= (V1->c.c_car);
  16.     V1=V1->c.c_cdr;
  17.     if(endp(V1)){
  18.     base[3]= Cnil;
  19.     base[4]= Cnil;
  20.     } else {
  21.     base[3]= (V1->c.c_car);
  22.     base[4]= Ct;
  23.     V1=V1->c.c_cdr;}
  24.     if(endp(V1)){
  25.     base[5]= Cnil;
  26.     } else {
  27.     base[5]= (V1->c.c_car);
  28.     V1=V1->c.c_cdr;}
  29.     if(!endp(V1))invalid_macro_call();}
  30.     V2= list(2,VV[1],list(2,VV[2],base[2]));
  31.     if((base[5])==Cnil){
  32.     goto T5;}
  33.     V3= list(4,VV[3],list(2,VV[2],base[2]),base[5],VV[4]);
  34.     goto T3;
  35. T5:;
  36.     V3= Cnil;
  37. T3:;
  38.     if((base[4])==Cnil){
  39.     goto T9;}
  40.     V5= list(2,VV[6],list(2,VV[2],base[2]));
  41.     V4= list(3,VV[5],/* INLINE-ARGS */V5,list(3,VV[7],base[2],base[3]));
  42.     goto T7;
  43. T9:;
  44.     V4= Cnil;
  45. T7:;
  46.     base[6]= list(5,VV[0],/* INLINE-ARGS */V2,V3,V4,list(2,VV[2],base[2]));
  47.     vs_top=(vs_base=base+6)+1;
  48.     return;
  49. }
  50. /*    macro definition for DEFPARAMETER    */
  51.  
  52. static L2()
  53. {register object *base=vs_base;
  54.     register object *sup=base+VM2; VC2
  55.     vs_reserve(VM2);
  56.     check_arg(2);
  57.     vs_top=sup;
  58.     {object V6=base[0]->c.c_cdr;
  59.     if(endp(V6))invalid_macro_call();
  60.     base[2]= (V6->c.c_car);
  61.     V6=V6->c.c_cdr;
  62.     if(endp(V6))invalid_macro_call();
  63.     base[3]= (V6->c.c_car);
  64.     V6=V6->c.c_cdr;
  65.     if(endp(V6)){
  66.     base[4]= Cnil;
  67.     } else {
  68.     base[4]= (V6->c.c_car);
  69.     V6=V6->c.c_cdr;}
  70.     if(!endp(V6))invalid_macro_call();}
  71.     if((base[4])==Cnil){
  72.     goto T13;}
  73.     V7= list(2,VV[1],list(2,VV[2],base[2]));
  74.     V8= list(4,VV[3],list(2,VV[2],base[2]),base[4],VV[8]);
  75.     V9= list(3,VV[7],base[2],base[3]);
  76.     base[5]= list(5,VV[0],/* INLINE-ARGS */V7,/* INLINE-ARGS */V8,/* INLINE-ARGS */V9,list(2,VV[2],base[2]));
  77.     vs_top=(vs_base=base+5)+1;
  78.     return;
  79. T13:;
  80.     V10= list(2,VV[1],list(2,VV[2],base[2]));
  81.     V11= list(3,VV[7],base[2],base[3]);
  82.     base[5]= list(4,VV[0],/* INLINE-ARGS */V10,/* INLINE-ARGS */V11,list(2,VV[2],base[2]));
  83.     vs_top=(vs_base=base+5)+1;
  84.     return;
  85. }
  86. /*    macro definition for DEFCONSTANT    */
  87.  
  88. static L3()
  89. {register object *base=vs_base;
  90.     register object *sup=base+VM3; VC3
  91.     vs_reserve(VM3);
  92.     check_arg(2);
  93.     vs_top=sup;
  94.     {object V12=base[0]->c.c_cdr;
  95.     if(endp(V12))invalid_macro_call();
  96.     base[2]= (V12->c.c_car);
  97.     V12=V12->c.c_cdr;
  98.     if(endp(V12))invalid_macro_call();
  99.     base[3]= (V12->c.c_car);
  100.     V12=V12->c.c_cdr;
  101.     if(endp(V12)){
  102.     base[4]= Cnil;
  103.     } else {
  104.     base[4]= (V12->c.c_car);
  105.     V12=V12->c.c_cdr;}
  106.     if(!endp(V12))invalid_macro_call();}
  107.     if((base[4])==Cnil){
  108.     goto T17;}
  109.     V13= list(3,VV[9],list(2,VV[2],base[2]),base[3]);
  110.     V14= list(4,VV[3],list(2,VV[2],base[2]),base[4],VV[10]);
  111.     base[5]= list(4,VV[0],/* INLINE-ARGS */V13,/* INLINE-ARGS */V14,list(2,VV[2],base[2]));
  112.     vs_top=(vs_base=base+5)+1;
  113.     return;
  114. T17:;
  115.     V15= list(3,VV[9],list(2,VV[2],base[2]),base[3]);
  116.     base[5]= list(3,VV[0],/* INLINE-ARGS */V15,list(2,VV[2],base[2]));
  117.     vs_top=(vs_base=base+5)+1;
  118.     return;
  119. }
  120. /*    macro definition for AND    */
  121.  
  122. static L4()
  123. {register object *base=vs_base;
  124.     register object *sup=base+VM4; VC4
  125.     vs_reserve(VM4);
  126.     check_arg(2);
  127.     vs_top=sup;
  128.     {object V16=base[0]->c.c_cdr;
  129.     base[2]= V16;}
  130.     if(!(endp(base[2]))){
  131.     goto T20;}
  132.     base[3]= Ct;
  133.     vs_top=(vs_base=base+3)+1;
  134.     return;
  135. T20:;
  136.     {object V17;
  137.     V17= reverse(base[2]);
  138.     {register object V18;
  139.     register object V19;
  140.     V18= cdr((V17));
  141.     V19= car((V17));
  142. T26:;
  143.     if(!(endp((V18)))){
  144.     goto T27;}
  145.     base[3]= (V19);
  146.     vs_top=(vs_base=base+3)+1;
  147.     return;
  148. T27:;
  149.     {object V20;
  150.     V20= cdr((V18));
  151.     V19= list(3,VV[11],car((V18)),(V19));
  152.     V18= (V20);}
  153.     goto T26;}}
  154. }
  155. /*    macro definition for OR    */
  156.  
  157. static L5()
  158. {register object *base=vs_base;
  159.     register object *sup=base+VM5; VC5
  160.     vs_reserve(VM5);
  161.     check_arg(2);
  162.     vs_top=sup;
  163.     {object V21=base[0]->c.c_cdr;
  164.     base[2]= V21;}
  165.     if(!(endp(base[2]))){
  166.     goto T36;}
  167.     base[3]= Cnil;
  168.     vs_top=(vs_base=base+3)+1;
  169.     return;
  170. T36:;
  171.     {object V22;
  172.     V22= reverse(base[2]);
  173.     {register object V23;
  174.     register object V24;
  175.     V23= cdr((V22));
  176.     V24= car((V22));
  177. T42:;
  178.     if(!(endp((V23)))){
  179.     goto T43;}
  180.     base[3]= (V24);
  181.     vs_top=(vs_base=base+3)+1;
  182.     return;
  183. T43:;
  184.     {object V25;
  185.     V25= cdr((V23));
  186.     {register object V26;
  187.     vs_base=vs_top;
  188.     Lgensym();
  189.     vs_top=sup;
  190.     V26= vs_base[0];
  191.     V27= list(2,(V26),car((V23)));
  192.     V28= make_cons(/* INLINE-ARGS */V27,Cnil);
  193.     V24= list(3,VV[12],/* INLINE-ARGS */V28,list(4,VV[11],(V26),(V26),(V24)));}
  194.     V23= (V25);}
  195.     goto T42;}}
  196. }
  197. /*    macro definition for LOCALLY    */
  198.  
  199. static L6()
  200. {register object *base=vs_base;
  201.     register object *sup=base+VM6; VC6
  202.     vs_reserve(VM6);
  203.     check_arg(2);
  204.     vs_top=sup;
  205.     {object V29=base[0]->c.c_cdr;
  206.     base[2]= V29;}
  207.     base[3]= listA(3,VV[12],Cnil,base[2]);
  208.     vs_top=(vs_base=base+3)+1;
  209.     return;
  210. }
  211. /*    macro definition for LOOP    */
  212.  
  213. static L7()
  214. {register object *base=vs_base;
  215.     register object *sup=base+VM7; VC7
  216.     vs_reserve(VM7);
  217.     check_arg(2);
  218.     vs_top=sup;
  219.     {object V30=base[0]->c.c_cdr;
  220.     base[2]= V30;
  221.     vs_base=vs_top;
  222.     Lgensym();
  223.     vs_top=sup;
  224.     base[3]= vs_base[0];}
  225.     V31= make_cons(VV[0],base[2]);
  226.     base[4]= list(3,VV[13],Cnil,list(4,VV[14],base[3],/* INLINE-ARGS */V31,list(2,VV[15],base[3])));
  227.     vs_top=(vs_base=base+4)+1;
  228.     return;
  229. }
  230. /*    macro definition for DEFMACRO    */
  231.  
  232. static L8()
  233. {register object *base=vs_base;
  234.     register object *sup=base+VM8; VC8
  235.     vs_reserve(VM8);
  236.     check_arg(2);
  237.     vs_top=sup;
  238.     {object V32=base[0]->c.c_cdr;
  239.     if(endp(V32))invalid_macro_call();
  240.     base[2]= (V32->c.c_car);
  241.     V32=V32->c.c_cdr;
  242.     if(endp(V32))invalid_macro_call();
  243.     base[3]= (V32->c.c_car);
  244.     V32=V32->c.c_cdr;
  245.     base[4]= V32;}
  246.     V33= list(2,VV[2],base[2]);
  247.     V34= list(2,VV[2],base[2]);
  248.     V35= list(2,VV[2],base[3]);
  249.     base[5]= list(3,VV[16],/* INLINE-ARGS */V33,list(4,VV[17],/* INLINE-ARGS */V34,/* INLINE-ARGS */V35,list(2,VV[2],base[4])));
  250.     vs_top=(vs_base=base+5)+1;
  251.     return;
  252. }
  253. /*    macro definition for DEFUN    */
  254.  
  255. static L9()
  256. {register object *base=vs_base;
  257.     register object *sup=base+VM9; VC9
  258.     vs_reserve(VM9);
  259.     check_arg(2);
  260.     vs_top=sup;
  261.     {object V36=base[0]->c.c_cdr;
  262.     if(endp(V36))invalid_macro_call();
  263.     base[2]= (V36->c.c_car);
  264.     V36=V36->c.c_cdr;
  265.     if(endp(V36))invalid_macro_call();
  266.     base[3]= (V36->c.c_car);
  267.     V36=V36->c.c_cdr;
  268.     base[4]= V36;}
  269.     {object V37;
  270.     object V38;
  271.     object V39;
  272.     base[5]= base[4];
  273.     base[6]= Cnil;
  274.     vs_top=(vs_base=base+5)+2;
  275.     (void) (*Lnk43)();
  276.     if(vs_base>=vs_top){vs_top=sup;goto T56;}
  277.     V37= vs_base[0];
  278.     vs_base++;
  279.     if(vs_base>=vs_top){vs_top=sup;goto T57;}
  280.     V38= vs_base[0];
  281.     vs_base++;
  282.     if(vs_base>=vs_top){vs_top=sup;goto T58;}
  283.     V39= vs_base[0];
  284.     vs_top=sup;
  285.     goto T59;
  286. T56:;
  287.     V37= Cnil;
  288. T57:;
  289.     V38= Cnil;
  290. T58:;
  291.     V39= Cnil;
  292. T59:;
  293.     if(((V37))==Cnil){
  294.     goto T61;}
  295.     V40= list(3,VV[18],list(3,VV[19],list(2,VV[2],base[2]),VV[20]),(V37));
  296.     V41= list(2,VV[21],list(2,VV[2],base[2]));
  297.     V42= listA(3,VV[13],base[2],(V39));
  298.     V43= make_cons(/* INLINE-ARGS */V42,Cnil);
  299.     V44= list(3,VV[18],/* INLINE-ARGS */V41,list(2,VV[22],listA(3,VV[23],base[3],append((V38),/* INLINE-ARGS */V43))));
  300.     base[5]= list(4,VV[0],/* INLINE-ARGS */V40,/* INLINE-ARGS */V44,list(2,VV[2],base[2]));
  301.     vs_top=(vs_base=base+5)+1;
  302.     return;
  303. T61:;
  304.     V45= list(2,VV[21],list(2,VV[2],base[2]));
  305.     V46= listA(3,VV[13],base[2],(V39));
  306.     V47= make_cons(/* INLINE-ARGS */V46,Cnil);
  307.     V48= list(3,VV[18],/* INLINE-ARGS */V45,list(2,VV[22],listA(3,VV[23],base[3],append((V38),/* INLINE-ARGS */V47))));
  308.     base[5]= list(3,VV[0],/* INLINE-ARGS */V48,list(2,VV[2],base[2]));
  309.     vs_top=(vs_base=base+5)+1;
  310.     return;}
  311. }
  312. /*    macro definition for PSETQ    */
  313.  
  314. static L10()
  315. {register object *base=vs_base;
  316.     register object *sup=base+VM10; VC10
  317.     vs_reserve(VM10);
  318.     check_arg(2);
  319.     vs_top=sup;
  320.     {object V49=base[0]->c.c_cdr;
  321.     base[2]= V49;}
  322.     {register object V50;
  323.     register object V51;
  324.     register object V52;
  325.     V50= base[2];
  326.     V51= Cnil;
  327.     V52= Cnil;
  328. T64:;
  329.     if(!(endp((V50)))){
  330.     goto T65;}
  331.     V53= reverse((V52));
  332.     V54= make_cons(Cnil,(V51));
  333.     base[3]= listA(3,VV[24],/* INLINE-ARGS */V53,reverse(/* INLINE-ARGS */V54));
  334.     vs_top=(vs_base=base+3)+1;
  335.     return;
  336. T65:;
  337.     {register object V55;
  338.     vs_base=vs_top;
  339.     Lgensym();
  340.     vs_top=sup;
  341.     V55= vs_base[0];
  342.     V56= list(2,(V55),cadr((V50)));
  343.     V52= make_cons(/* INLINE-ARGS */V56,(V52));
  344.     V57= list(3,VV[7],car((V50)),(V55));
  345.     V51= make_cons(/* INLINE-ARGS */V57,(V51));}
  346.     V50= cddr((V50));
  347.     goto T64;}
  348. }
  349. /*    macro definition for COND    */
  350.  
  351. static L11()
  352. {register object *base=vs_base;
  353.     register object *sup=base+VM11; VC11
  354.     vs_reserve(VM11);
  355.     check_arg(2);
  356.     vs_top=sup;
  357.     {object V58=base[0]->c.c_cdr;
  358.     base[2]= V58;
  359.     base[3]= Cnil;}
  360.     {register object V59;
  361.     register object V60;
  362.     V59= reverse(base[2]);
  363.     V60= car((V59));
  364. T81:;
  365.     if(!(endp((V59)))){
  366.     goto T82;}
  367.     vs_top=(vs_base=base+3)+1;
  368.     return;
  369. T82:;
  370.     if(!(endp(cdr((V60))))){
  371.     goto T88;}
  372.     if(!((car((V60)))==(Ct))){
  373.     goto T91;}
  374.     base[3]= Ct;
  375.     goto T86;
  376. T91:;
  377.     {register object V61;
  378.     vs_base=vs_top;
  379.     Lgensym();
  380.     vs_top=sup;
  381.     V61= vs_base[0];
  382.     V62= list(2,(V61),car((V60)));
  383.     V63= make_cons(/* INLINE-ARGS */V62,Cnil);
  384.     base[3]= list(3,VV[12],/* INLINE-ARGS */V63,list(4,VV[11],(V61),(V61),base[3]));
  385.     goto T86;}
  386. T88:;
  387.     if(!((car((V60)))==(Ct))){
  388.     goto T97;}
  389.     if(!(endp(cddr((V60))))){
  390.     goto T101;}
  391.     base[3]= cadr((V60));
  392.     goto T99;
  393. T101:;
  394.     base[3]= make_cons(VV[0],cdr((V60)));
  395. T99:;
  396.     goto T86;
  397. T97:;
  398.     if(!(endp(cddr((V60))))){
  399.     goto T105;}
  400.     base[3]= list(4,VV[11],car((V60)),cadr((V60)),base[3]);
  401.     goto T103;
  402. T105:;
  403.     V64= car((V60));
  404.     base[3]= list(4,VV[11],/* INLINE-ARGS */V64,make_cons(VV[0],cdr((V60))),base[3]);
  405. T103:;
  406. T86:;
  407.     V59= cdr((V59));
  408.     V60= car((V59));
  409.     goto T81;}
  410. }
  411. /*    macro definition for WHEN    */
  412.  
  413. static L12()
  414. {register object *base=vs_base;
  415.     register object *sup=base+VM12; VC12
  416.     vs_reserve(VM12);
  417.     check_arg(2);
  418.     vs_top=sup;
  419.     {object V65=base[0]->c.c_cdr;
  420.     if(endp(V65))invalid_macro_call();
  421.     base[2]= (V65->c.c_car);
  422.     V65=V65->c.c_cdr;
  423.     base[3]= V65;}
  424.     base[4]= list(3,VV[11],base[2],make_cons(VV[0],base[3]));
  425.     vs_top=(vs_base=base+4)+1;
  426.     return;
  427. }
  428. /*    macro definition for UNLESS    */
  429.  
  430. static L13()
  431. {register object *base=vs_base;
  432.     register object *sup=base+VM13; VC13
  433.     vs_reserve(VM13);
  434.     check_arg(2);
  435.     vs_top=sup;
  436.     {object V66=base[0]->c.c_cdr;
  437.     if(endp(V66))invalid_macro_call();
  438.     base[2]= (V66->c.c_car);
  439.     V66=V66->c.c_cdr;
  440.     base[3]= V66;}
  441.     V67= list(2,VV[25],base[2]);
  442.     base[4]= list(3,VV[11],/* INLINE-ARGS */V67,make_cons(VV[0],base[3]));
  443.     vs_top=(vs_base=base+4)+1;
  444.     return;
  445. }
  446. /*    macro definition for PROG    */
  447.  
  448. static L14()
  449. {register object *base=vs_base;
  450.     register object *sup=base+VM14; VC14
  451.     vs_reserve(VM14);
  452.     check_arg(2);
  453.     vs_top=sup;
  454.     {object V68=base[0]->c.c_cdr;
  455.     if(endp(V68))invalid_macro_call();
  456.     base[2]= (V68->c.c_car);
  457.     V68=V68->c.c_cdr;
  458.     base[3]= V68;
  459.     base[4]= Cnil;}
  460. T114:;
  461.     if(endp(base[3])){
  462.     goto T116;}
  463.     if(!(type_of(car(base[3]))==t_cons)){
  464.     goto T116;}
  465.     if((caar(base[3]))==(VV[26])){
  466.     goto T115;}
  467. T116:;
  468.     V69= make_cons(VV[14],base[3]);
  469.     V70= make_cons(/* INLINE-ARGS */V69,Cnil);
  470.     base[5]= list(3,VV[13],Cnil,listA(3,VV[12],base[2],append(base[4],/* INLINE-ARGS */V70)));
  471.     vs_top=(vs_base=base+5)+1;
  472.     return;
  473. T115:;
  474.     base[4]= make_cons(car(base[3]),base[4]);
  475.     {register object V71;
  476.     V71= car(base[3]);
  477.     base[3]= cdr(base[3]);}
  478.     goto T114;
  479. }
  480. /*    macro definition for PROG*    */
  481.  
  482. static L15()
  483. {register object *base=vs_base;
  484.     register object *sup=base+VM15; VC15
  485.     vs_reserve(VM15);
  486.     check_arg(2);
  487.     vs_top=sup;
  488.     {object V72=base[0]->c.c_cdr;
  489.     if(endp(V72))invalid_macro_call();
  490.     base[2]= (V72->c.c_car);
  491.     V72=V72->c.c_cdr;
  492.     base[3]= V72;
  493.     base[4]= Cnil;}
  494. T133:;
  495.     if(endp(base[3])){
  496.     goto T135;}
  497.     if(!(type_of(car(base[3]))==t_cons)){
  498.     goto T135;}
  499.     if((caar(base[3]))==(VV[26])){
  500.     goto T134;}
  501. T135:;
  502.     V73= make_cons(VV[14],base[3]);
  503.     V74= make_cons(/* INLINE-ARGS */V73,Cnil);
  504.     base[5]= list(3,VV[13],Cnil,listA(3,VV[24],base[2],append(base[4],/* INLINE-ARGS */V74)));
  505.     vs_top=(vs_base=base+5)+1;
  506.     return;
  507. T134:;
  508.     base[4]= make_cons(car(base[3]),base[4]);
  509.     {register object V75;
  510.     V75= car(base[3]);
  511.     base[3]= cdr(base[3]);}
  512.     goto T133;
  513. }
  514. /*    macro definition for PROG1    */
  515.  
  516. static L16()
  517. {register object *base=vs_base;
  518.     register object *sup=base+VM16; VC16
  519.     vs_reserve(VM16);
  520.     check_arg(2);
  521.     vs_top=sup;
  522.     {object V76=base[0]->c.c_cdr;
  523.     if(endp(V76))invalid_macro_call();
  524.     base[2]= (V76->c.c_car);
  525.     V76=V76->c.c_cdr;
  526.     base[3]= V76;
  527.     vs_base=vs_top;
  528.     Lgensym();
  529.     vs_top=sup;
  530.     base[4]= vs_base[0];}
  531.     V77= list(2,base[4],base[2]);
  532.     V78= make_cons(/* INLINE-ARGS */V77,Cnil);
  533.     V79= make_cons(base[4],Cnil);
  534.     base[5]= listA(3,VV[12],/* INLINE-ARGS */V78,append(base[3],/* INLINE-ARGS */V79));
  535.     vs_top=(vs_base=base+5)+1;
  536.     return;
  537. }
  538. /*    macro definition for PROG2    */
  539.  
  540. static L17()
  541. {register object *base=vs_base;
  542.     register object *sup=base+VM17; VC17
  543.     vs_reserve(VM17);
  544.     check_arg(2);
  545.     vs_top=sup;
  546.     {object V80=base[0]->c.c_cdr;
  547.     if(endp(V80))invalid_macro_call();
  548.     base[2]= (V80->c.c_car);
  549.     V80=V80->c.c_cdr;
  550.     if(endp(V80))invalid_macro_call();
  551.     base[3]= (V80->c.c_car);
  552.     V80=V80->c.c_cdr;
  553.     base[4]= V80;
  554.     vs_base=vs_top;
  555.     Lgensym();
  556.     vs_top=sup;
  557.     base[5]= vs_base[0];}
  558.     V81= list(2,base[5],base[3]);
  559.     V82= make_cons(/* INLINE-ARGS */V81,Cnil);
  560.     V83= make_cons(base[5],Cnil);
  561.     base[6]= list(3,VV[0],base[2],listA(3,VV[12],/* INLINE-ARGS */V82,append(base[4],/* INLINE-ARGS */V83)));
  562.     vs_top=(vs_base=base+6)+1;
  563.     return;
  564. }
  565. /*    macro definition for MULTIPLE-VALUE-LIST    */
  566.  
  567. static L18()
  568. {register object *base=vs_base;
  569.     register object *sup=base+VM18; VC18
  570.     vs_reserve(VM18);
  571.     check_arg(2);
  572.     vs_top=sup;
  573.     {object V84=base[0]->c.c_cdr;
  574.     if(endp(V84))invalid_macro_call();
  575.     base[2]= (V84->c.c_car);
  576.     V84=V84->c.c_cdr;
  577.     if(!endp(V84))invalid_macro_call();}
  578.     base[3]= list(3,VV[27],VV[28],base[2]);
  579.     vs_top=(vs_base=base+3)+1;
  580.     return;
  581. }
  582. /*    macro definition for MULTIPLE-VALUE-SETQ    */
  583.  
  584. static L19()
  585. {register object *base=vs_base;
  586.     register object *sup=base+VM19; VC19
  587.     vs_reserve(VM19);
  588.     check_arg(2);
  589.     vs_top=sup;
  590.     {object V85=base[0]->c.c_cdr;
  591.     if(endp(V85))invalid_macro_call();
  592.     base[2]= (V85->c.c_car);
  593.     V85=V85->c.c_cdr;
  594.     if(endp(V85))invalid_macro_call();
  595.     base[3]= (V85->c.c_car);
  596.     V85=V85->c.c_cdr;
  597.     if(!endp(V85))invalid_macro_call();}
  598.     {register object V86;
  599.     register object V87;
  600.     register object V88;
  601.     register int V89;
  602.     vs_base=vs_top;
  603.     Lgensym();
  604.     vs_top=sup;
  605.     V87= vs_base[0];
  606.     V89= 0;
  607.     V86= base[2];
  608.     V88= Cnil;
  609. T155:;
  610.     if(!(endp((V86)))){
  611.     goto T156;}
  612.     V90= list(2,(V87),list(2,VV[29],base[3]));
  613.     base[4]= listA(3,VV[12],make_cons(/* INLINE-ARGS */V90,Cnil),(V88));
  614.     vs_top=(vs_base=base+4)+1;
  615.     return;
  616. T156:;
  617.     V91= car((V86));
  618.     V92 = make_fixnum(V89);
  619.     V93= list(3,VV[7],/* INLINE-ARGS */V91,list(3,VV[30],V92,(V87)));
  620.     V88= make_cons(/* INLINE-ARGS */V93,(V88));
  621.     V86= cdr((V86));
  622.     V89= (V89)+1;
  623.     goto T155;}
  624. }
  625. /*    macro definition for MULTIPLE-VALUE-BIND    */
  626.  
  627. static L20()
  628. {register object *base=vs_base;
  629.     register object *sup=base+VM20; VC20
  630.     vs_reserve(VM20);
  631.     check_arg(2);
  632.     vs_top=sup;
  633.     {object V94=base[0]->c.c_cdr;
  634.     if(endp(V94))invalid_macro_call();
  635.     base[2]= (V94->c.c_car);
  636.     V94=V94->c.c_cdr;
  637.     if(endp(V94))invalid_macro_call();
  638.     base[3]= (V94->c.c_car);
  639.     V94=V94->c.c_cdr;
  640.     base[4]= V94;}
  641.     {register object V95;
  642.     register object V96;
  643.     register object V97;
  644.     register int V98;
  645.     vs_base=vs_top;
  646.     Lgensym();
  647.     vs_top=sup;
  648.     V96= vs_base[0];
  649.     V98= 0;
  650.     V95= base[2];
  651.     V97= Cnil;
  652. T169:;
  653.     if(!(endp((V95)))){
  654.     goto T170;}
  655.     V99= list(2,(V96),list(2,VV[29],base[3]));
  656.     V100= reverse((V97));
  657.     base[5]= listA(3,VV[24],make_cons(/* INLINE-ARGS */V99,/* INLINE-ARGS */V100),base[4]);
  658.     vs_top=(vs_base=base+5)+1;
  659.     return;
  660. T170:;
  661.     V101= car((V95));
  662.     V102 = make_fixnum(V98);
  663.     V103= list(2,/* INLINE-ARGS */V101,list(3,VV[30],V102,(V96)));
  664.     V97= make_cons(/* INLINE-ARGS */V103,(V97));
  665.     V95= cdr((V95));
  666.     V98= (V98)+1;
  667.     goto T169;}
  668. }
  669. /*    macro definition for DO    */
  670.  
  671. static L21()
  672. {register object *base=vs_base;
  673.     register object *sup=base+VM21; VC21
  674.     vs_reserve(VM21);
  675.     check_arg(2);
  676.     vs_top=sup;
  677.     {object V104=base[0]->c.c_cdr;
  678.     if(endp(V104))invalid_macro_call();
  679.     base[2]= (V104->c.c_car);
  680.     V104=V104->c.c_cdr;
  681.     if(endp(V104))invalid_macro_call();
  682.     {object V105= (V104->c.c_car);
  683.     if(endp(V105))invalid_macro_call();
  684.     base[3]= (V105->c.c_car);
  685.     V105=V105->c.c_cdr;
  686.     base[4]= V105;}
  687.     V104=V104->c.c_cdr;
  688.     base[5]= V104;
  689.     base[6]= Cnil;
  690.     vs_base=vs_top;
  691.     Lgensym();
  692.     vs_top=sup;
  693.     base[7]= vs_base[0];
  694.     base[8]= Cnil;
  695.     base[9]= Cnil;}
  696. T186:;
  697.     if(endp(base[5])){
  698.     goto T188;}
  699.     if(!(type_of(car(base[5]))==t_cons)){
  700.     goto T188;}
  701.     if((caar(base[5]))==(VV[26])){
  702.     goto T187;}
  703. T188:;
  704.     goto T184;
  705. T187:;
  706.     base[6]= make_cons(car(base[5]),base[6]);
  707.     {register object V106;
  708.     V106= car(base[5]);
  709.     base[5]= cdr(base[5]);}
  710.     goto T186;
  711. T184:;
  712.     {register object V107;
  713.     register object V108;
  714.     V107= base[2];
  715.     V108= car((V107));
  716. T207:;
  717.     if(!(endp((V107)))){
  718.     goto T208;}
  719.     goto T203;
  720. T208:;
  721.     if(!(type_of((V108))==t_symbol)){
  722.     goto T212;}
  723.     V108= make_cons((V108),Cnil);
  724. T212:;
  725.     V109= list(2,car((V108)),cadr((V108)));
  726.     base[8]= make_cons(/* INLINE-ARGS */V109,base[8]);
  727.     if(endp(cddr((V108)))){
  728.     goto T218;}
  729.     base[9]= make_cons(car((V108)),base[9]);
  730.     base[9]= make_cons(caddr((V108)),base[9]);
  731. T218:;
  732.     V107= cdr((V107));
  733.     V108= car((V107));
  734.     goto T207;}
  735. T203:;
  736.     V110= reverse(base[8]);
  737.     V111= list(3,VV[11],base[3],list(2,VV[31],make_cons(VV[0],base[4])));
  738.     V112= make_cons(VV[14],base[5]);
  739.     V113= reverse(base[9]);
  740.     V114= make_cons(VV[32],/* INLINE-ARGS */V113);
  741.     V115= list(6,VV[14],base[7],/* INLINE-ARGS */V111,/* INLINE-ARGS */V112,/* INLINE-ARGS */V114,list(2,VV[15],base[7]));
  742.     V116= make_cons(/* INLINE-ARGS */V115,Cnil);
  743.     base[10]= list(3,VV[13],Cnil,listA(3,VV[12],/* INLINE-ARGS */V110,append(base[6],/* INLINE-ARGS */V116)));
  744.     vs_top=(vs_base=base+10)+1;
  745.     return;
  746. }
  747. /*    macro definition for DO*    */
  748.  
  749. static L22()
  750. {register object *base=vs_base;
  751.     register object *sup=base+VM22; VC22
  752.     vs_reserve(VM22);
  753.     check_arg(2);
  754.     vs_top=sup;
  755.     {object V117=base[0]->c.c_cdr;
  756.     if(endp(V117))invalid_macro_call();
  757.     base[2]= (V117->c.c_car);
  758.     V117=V117->c.c_cdr;
  759.     if(endp(V117))invalid_macro_call();
  760.     {object V118= (V117->c.c_car);
  761.     if(endp(V118))invalid_macro_call();
  762.     base[3]= (V118->c.c_car);
  763.     V118=V118->c.c_cdr;
  764.     base[4]= V118;}
  765.     V117=V117->c.c_cdr;
  766.     base[5]= V117;
  767.     base[6]= Cnil;
  768.     vs_base=vs_top;
  769.     Lgensym();
  770.     vs_top=sup;
  771.     base[7]= vs_base[0];
  772.     base[8]= Cnil;
  773.     base[9]= Cnil;}
  774. T235:;
  775.     if(endp(base[5])){
  776.     goto T237;}
  777.     if(!(type_of(car(base[5]))==t_cons)){
  778.     goto T237;}
  779.     if((caar(base[5]))==(VV[26])){
  780.     goto T236;}
  781. T237:;
  782.     goto T233;
  783. T236:;
  784.     base[6]= make_cons(car(base[5]),base[6]);
  785.     {register object V119;
  786.     V119= car(base[5]);
  787.     base[5]= cdr(base[5]);}
  788.     goto T235;
  789. T233:;
  790.     {register object V120;
  791.     register object V121;
  792.     V120= base[2];
  793.     V121= car((V120));
  794. T256:;
  795.     if(!(endp((V120)))){
  796.     goto T257;}
  797.     goto T252;
  798. T257:;
  799.     if(!(type_of((V121))==t_symbol)){
  800.     goto T261;}
  801.     V121= make_cons((V121),Cnil);
  802. T261:;
  803.     V122= list(2,car((V121)),cadr((V121)));
  804.     base[8]= make_cons(/* INLINE-ARGS */V122,base[8]);
  805.     if(endp(cddr((V121)))){
  806.     goto T267;}
  807.     base[9]= make_cons(car((V121)),base[9]);
  808.     base[9]= make_cons(caddr((V121)),base[9]);
  809. T267:;
  810.     V120= cdr((V120));
  811.     V121= car((V120));
  812.     goto T256;}
  813. T252:;
  814.     V123= reverse(base[8]);
  815.     V124= list(3,VV[11],base[3],list(2,VV[31],make_cons(VV[0],base[4])));
  816.     V125= make_cons(VV[14],base[5]);
  817.     V126= reverse(base[9]);
  818.     V127= make_cons(VV[7],/* INLINE-ARGS */V126);
  819.     V128= list(6,VV[14],base[7],/* INLINE-ARGS */V124,/* INLINE-ARGS */V125,/* INLINE-ARGS */V127,list(2,VV[15],base[7]));
  820.     V129= make_cons(/* INLINE-ARGS */V128,Cnil);
  821.     base[10]= list(3,VV[13],Cnil,listA(3,VV[24],/* INLINE-ARGS */V123,append(base[6],/* INLINE-ARGS */V129)));
  822.     vs_top=(vs_base=base+10)+1;
  823.     return;
  824. }
  825. /*    macro definition for CASE    */
  826.  
  827. static L23()
  828. {register object *base=vs_base;
  829.     register object *sup=base+VM23; VC23
  830.     vs_reserve(VM23);
  831.     check_arg(2);
  832.     vs_top=sup;
  833.     {object V130=base[0]->c.c_cdr;
  834.     if(endp(V130))invalid_macro_call();
  835.     base[2]= (V130->c.c_car);
  836.     V130=V130->c.c_cdr;
  837.     base[3]= V130;
  838.     base[4]= Cnil;
  839.     vs_base=vs_top;
  840.     Lgensym();
  841.     vs_top=sup;
  842.     base[5]= vs_base[0];}
  843.     {register object V131;
  844.     register object V132;
  845.     V131= reverse(base[3]);
  846.     V132= car((V131));
  847. T283:;
  848.     if(!(endp((V131)))){
  849.     goto T284;}
  850.     V133= list(2,base[5],base[2]);
  851.     base[8]= list(3,VV[12],make_cons(/* INLINE-ARGS */V133,Cnil),base[4]);
  852.     vs_top=(vs_base=base+8)+1;
  853.     return;
  854. T284:;
  855.     if((car((V132)))==(Ct)){
  856.     goto T289;}
  857.     if(!((car((V132)))==(VV[33]))){
  858.     goto T290;}
  859. T289:;
  860.     base[4]= make_cons(VV[0],cdr((V132)));
  861.     goto T288;
  862. T290:;
  863.     if(!(type_of(car((V132)))==t_cons)){
  864.     goto T296;}
  865.     V134= list(3,VV[34],base[5],list(2,VV[2],car((V132))));
  866.     base[4]= list(4,VV[11],/* INLINE-ARGS */V134,make_cons(VV[0],cdr((V132))),base[4]);
  867.     goto T288;
  868. T296:;
  869.     if((car((V132)))==Cnil){
  870.     goto T288;}
  871.     V135= list(3,VV[35],base[5],list(2,VV[2],car((V132))));
  872.     base[4]= list(4,VV[11],/* INLINE-ARGS */V135,make_cons(VV[0],cdr((V132))),base[4]);
  873. T288:;
  874.     V131= cdr((V131));
  875.     V132= car((V131));
  876.     goto T283;}
  877. }
  878. /*    macro definition for RETURN    */
  879.  
  880. static L24()
  881. {register object *base=vs_base;
  882.     register object *sup=base+VM24; VC24
  883.     vs_reserve(VM24);
  884.     check_arg(2);
  885.     vs_top=sup;
  886.     {object V136=base[0]->c.c_cdr;
  887.     if(endp(V136)){
  888.     base[2]= Cnil;
  889.     } else {
  890.     base[2]= (V136->c.c_car);
  891.     V136=V136->c.c_cdr;}
  892.     if(!endp(V136))invalid_macro_call();}
  893.     base[3]= list(3,VV[36],Cnil,base[2]);
  894.     vs_top=(vs_base=base+3)+1;
  895.     return;
  896. }
  897. /*    macro definition for DOLIST    */
  898.  
  899. static L25()
  900. {register object *base=vs_base;
  901.     register object *sup=base+VM25; VC25
  902.     vs_reserve(VM25);
  903.     check_arg(2);
  904.     vs_top=sup;
  905.     {object V137=base[0]->c.c_cdr;
  906.     if(endp(V137))invalid_macro_call();
  907.     {object V138= (V137->c.c_car);
  908.     if(endp(V138))invalid_macro_call();
  909.     base[2]= (V138->c.c_car);
  910.     V138=V138->c.c_cdr;
  911.     if(endp(V138))invalid_macro_call();
  912.     base[3]= (V138->c.c_car);
  913.     V138=V138->c.c_cdr;
  914.     if(endp(V138)){
  915.     base[4]= Cnil;
  916.     } else {
  917.     base[4]= (V138->c.c_car);
  918.     V138=V138->c.c_cdr;}
  919.     if(!endp(V138))invalid_macro_call();}
  920.     V137=V137->c.c_cdr;
  921.     base[5]= V137;
  922.     vs_base=vs_top;
  923.     Lgensym();
  924.     vs_top=sup;
  925.     base[6]= vs_base[0];}
  926.     V139= list(3,base[6],base[3],list(2,VV[38],base[6]));
  927.     V140= list(2,VV[39],base[6]);
  928.     V141= list(2,/* INLINE-ARGS */V139,list(3,base[2],/* INLINE-ARGS */V140,list(2,VV[39],base[6])));
  929.     base[7]= listA(4,VV[37],/* INLINE-ARGS */V141,list(2,list(2,VV[40],base[6]),base[4]),base[5]);
  930.     vs_top=(vs_base=base+7)+1;
  931.     return;
  932. }
  933. /*    macro definition for DOTIMES    */
  934.  
  935. static L26()
  936. {register object *base=vs_base;
  937.     register object *sup=base+VM26; VC26
  938.     vs_reserve(VM26);
  939.     check_arg(2);
  940.     vs_top=sup;
  941.     {object V142=base[0]->c.c_cdr;
  942.     if(endp(V142))invalid_macro_call();
  943.     {object V143= (V142->c.c_car);
  944.     if(endp(V143))invalid_macro_call();
  945.     base[2]= (V143->c.c_car);
  946.     V143=V143->c.c_cdr;
  947.     if(endp(V143))invalid_macro_call();
  948.     base[3]= (V143->c.c_car);
  949.     V143=V143->c.c_cdr;
  950.     if(endp(V143)){
  951.     base[4]= Cnil;
  952.     } else {
  953.     base[4]= (V143->c.c_car);
  954.     V143=V143->c.c_cdr;}
  955.     if(!endp(V143))invalid_macro_call();}
  956.     V142=V142->c.c_cdr;
  957.     base[5]= V142;
  958.     vs_base=vs_top;
  959.     Lgensym();
  960.     vs_top=sup;
  961.     base[6]= vs_base[0];}
  962.     V144= list(2,base[6],base[3]);
  963.     V145= list(2,/* INLINE-ARGS */V144,list(3,base[2],small_fixnum(0),list(2,VV[41],base[2])));
  964.     base[7]= listA(4,VV[37],/* INLINE-ARGS */V145,list(2,list(3,VV[42],base[2],base[6]),base[4]),base[5]);
  965.     vs_top=(vs_base=base+7)+1;
  966.     return;
  967. }
  968. static LnkT43(){ call_or_link(VV[43],&Lnk43);} /* FIND-DOC */
  969.